#!/usr/bin/perl
use strict;
package cs;

sub msg {
    my ($csnum,$dbh,$cbans,$ckeys,$input,$remote,$VER,$NETWORK,$csnick,$uptime) = @_;
    my $sth;
    my %ckeys = %$ckeys;
    my %cbans = %$cbans;
    my @input = @$input;
    undef @$input;
    my (undef,$msgcmd) = split(/:/,$input[3],2);
    $msgcmd = lc($msgcmd);
    if (!(-e "./cs/$msgcmd\.pl")) {
	print $remote "$csnum O $input[0] :No Such command - \cB$msgcmd\n";
    }
    else {
	my $eval = `cat ./cs/$msgcmd\.pl`;
	eval($eval);
	undef $eval;
    }
   
}

1;
